home *** CD-ROM | disk | FTP | other *** search
/ 100 Free Apps - The Best Freeware for the Mac! / 100 Free Apps The best freeware for the Mac!.iso / Data / Software / Featured Products / slashdock2.4.dmg.sit / slashdock2.4.dmg / fixnewsisfree.pl < prev    next >
Perl Script  |  2004-07-29  |  687b  |  31 lines
  1. #!/usr/bin/perl 
  2. # to run this script, open Terminal and run: perl [location to this script]
  3.  
  4. %CONVERSION_PATTERNS = 
  5. (
  6.   'www.newsisfree.com/HPE/xml'        => 'xml.newsisfree.com',
  7. );
  8.  
  9. # process the SlashDockConfig.plist file
  10. open(JPIPE, 'find ~/Library/Preferences/ -name "SlashDock.config.plist" -print |');
  11. @configfiles = <JPIPE>;
  12. close(JPIPE);
  13.  
  14. foreach $file (@configfiles) {
  15. print $file;
  16.   chomp $file;
  17.   open(FILE, $file);
  18.   @lines = <FILE>;
  19.   close(FILE);
  20.   foreach $line (@lines) {
  21.     my $sstr, $rstr;
  22.     while (($sstr,$rstr)=each(%CONVERSION_PATTERNS)) {
  23.       $line =~ s/$sstr/$rstr/g;
  24.     }
  25.   }
  26.   close(FILE);
  27.   open(FILE, ">$file");
  28.   print FILE @lines;
  29.   close(FILE);
  30. }
  31.